home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / Flea.dxr / Internal_18_lil flea.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  1.2 KB  |  39 lines
  1. property pFlea, spriteNum, pNewPoint, pPower, pDiffer, pGravity, pDistance, pJump
  2.  
  3. on beginSprite me
  4.   pFlea = sprite(spriteNum)
  5.   pFlea.locZ = spriteNum - 100
  6.   pGravity = 0.40000000000000002
  7.   pDistance = random(10) + 10
  8.   pJump = 1
  9. end
  10.  
  11. on enterFrame me
  12.   if pJump then
  13.     pNewPoint = point(pFlea.loc[1] + (random(101) - 51), pFlea.loc[2] + (random(101) - 51))
  14.     ass = [-1, 1]
  15.     pPower = -((float(pNewPoint[2]) - pFlea.loc[2]) * 0.08) * 0.80000000000000004 * random(ass.count)
  16.     pDiffer = (float(pNewPoint[1]) - pFlea.loc[1]) * 0.08 * 0.80000000000000004 * random(ass.count)
  17.     pJump = 0
  18.   else
  19.     if not pJump then
  20.       if pDistance > 0 then
  21.         pPower = pPower - pGravity
  22.         pDistance = pDistance - 1
  23.         pFlea.locH = pFlea.locH - pDiffer
  24.         pFlea.locV = pFlea.locV - pPower
  25.         if (pFlea.locH < -1) or (pFlea.locH > ((the stage).rect.width - 400)) then
  26.           pFlea.locH = random(75)
  27.         else
  28.           if (pFlea.locV < -1) or (pFlea.locV > ((the stage).rect.height + 1)) then
  29.             pFlea.locV = random(200) + 100
  30.           end if
  31.         end if
  32.       else
  33.         pJump = 1
  34.         pDistance = random(10) + 10
  35.       end if
  36.     end if
  37.   end if
  38. end
  39.